-- background: 2642 from stack: in
-- bmap block id: 3147
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openBackground
  push recent card
end openBackground


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=317 right=342 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go prev card
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=261 top=317 right=342 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go next card
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=13 top=321 right=339 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=463 top=317 right=341 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=54 top=58 right=83 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 34
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: Group Name


-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=74 top=90 right=114 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 34
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Alternate Name


-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=58 top=117 right=135 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Affiliation


-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=59 top=137 right=157 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Product Code


-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=250 top=137 right=157 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Group Code


-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=58 top=160 right=181 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address 1


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=58 top=183 right=204 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address 2


-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=89 top=205 right=225 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: City


-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=241 top=205 right=224 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: State


-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=276 top=205 right=224 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 99999


-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=343 top=205 right=224 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Country


-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=442 top=50 right=73 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 10851 / 10851
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  answer "UG Stack by Don Rose - 4/90 for GEM•CD/Mac"
end mouseUp




-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=120 top=299 right=317 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  answer "Sort by:" with "Group Name" or "Zip" or "Cancel"
  if it is "Group Name"
  then sort by first word of first line of field 1
else if it is "Zip"
then sort by first word of first line of field 10
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=346 top=299 right=316 bottom=385
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=390 top=298 right=316 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  ask "Find who or what?"
  Put it into FMe
  if FMe is empty then
    exit mouseUp
  else
    put the loc of msg into remember
    set loc of msg to 33000,33000
    put "Find " & quote & FMe & quote into msg
    do msg
    hide msg
    set loc of msg to remember
  end if
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=71 top=299 right=317 bottom=110
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  go first card
end mouseUp